home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t7.d64 / lemonade stand.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  5KB  |  188 lines
  1. 10 POKE53280,8:POKE53281,8
  2. 20 PRINT"[147][142][158] [165] [207][167][205][206][165][206][205][167][205] [165][206][205] [207][205] [207]     [207] [183][207] [206][205][167][205] [165][207][205]
  3. 21 [153]" (null) (null)THEN  FN(null)(null)THEN (null)FN(null)(null) (null)(null) (null)     (null)  FN (null)(null)THEN (null)FN(null)(null)
  4. 22 PRINT"   [163]                [163]     [163]
  5. 25 [153],"VERIFYCOMMODORE 64 VERSION
  6. 30 PRINT,"       BY
  7. 35 [153],"SYSSTEVEN DARNOLD
  8. 40 PRINT,"P.O. BOX 201
  9. 45 [153],"ALEXANDRA, NEW ZEALAND
  10. 100 FORI=1TO6000:NEXT:PRINTCHR$(14);:T=RND(-TI)
  11. 102 GOTO1300
  12. 104 INPUT"[142][149]YOUR NAME";A$
  13. 106 A$=LEFT$(A$,13)
  14. 110 B=10
  15. 115 FORX=1TO10:GOSUB997 :GOSUB1500
  16. 116 PRINT""X;
  17. 118 PRINT"[158]PREDICTION FOR[157][157][157][157][157][157][157][157][157][157][157][157][157][157]SATURDAY:";
  18. 120 PRINT"[157][157][157][157][157][157][157][157][157]TEMPERATURE    [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]ABOUT"T"[157]."
  19. 124 GOSUB1800
  20. 127 GOSUB1700
  21. 128 PRINT"SUGAR IS $"S"FOR A 5-POUND BAG"
  22. 130 PRINT"[145][149]HOW MANY BAGS DO YOU WANT TO BUY? ";:GOSUB60000:A=VAL(X$)
  23. 134 IFA*S<BGOTO140
  24. 136 GOSUB1700:PRINT"YOU DON'T HAVE ENOUGH MONEY FOR"A"BAGS"
  25. 138 FORY=1TO3000:NEXT
  26. 139 GOTO127
  27. 140 B=B-(A*S):A1=A1+(5*A)
  28. 145 GOSUB1800
  29. 150 GOSUB1700
  30. 158 PRINT"CONCENTRATED LEMON JUICE IS $"L"A LTR."
  31. 160 PRINT"[145][149]HOW MANY BOTTLES DO YOU WANT TO BUY? ";:GOSUB60000:D=VAL(X$)
  32. 164 IFD*L<BGOTO170
  33. 166 GOSUB1700:PRINT"YOU DON'T HAVE ENOUGH MONEY FOR"D"LTRS
  34. 168 [129]Y[178]1[164]3000:[130]
  35. 169 [137]150
  36. 170 B[178]B[171](D[172]L):D1[178]D1[170]D
  37. 175 [141]1800
  38. 180 [141]1700
  39. 188 [153]"CUPS ARE $"C"FOR A BAG OF 100"
  40. 190 [153]"ONVERIFYHOW MANY BAGS DO YOU WANT TO BUY? ";:[141]60000:P[178][197](X$)
  41. 194 [139]P[172]C[179]B[137]200
  42. 196 [141]1700:[153]"YOU DON'T HAVE ENOUGH MONEY FOR"P"BAGS"
  43. 198 [129]Y[178]1[164]3000:[130]
  44. 199 [137]180
  45. 200 B[178]B[171](P[172]C):P1[178]P1[170](P[172]100)
  46. 202 [141]1800
  47. 204 [141]1700
  48. 218 [153]"";
  49. 220 [129]V[178]1[164]8
  50. 224 [153][163]23)"                "
  51. 226 [130]V
  52. 228 [153]""[163]23)"TEMPERATURE:"Z[170]T
  53. 245 [153]"PRICE (IN CENTS) FOR A CUP OF LEMONADE  ";
  54. 247 [141]60000
  55. 248 K[178][197](X$):K[178][181](K):[139]K[179]1[167]202
  56. 249 [141]1700
  57. 250 F3[178]Z[170]T[171]11[170][181]([187](1)[172]5)
  58. 254 [153]""K
  59. 260 F1[178](F3[171]K)[172]F3
  60. 262 [139]F1[179]0[167]F1[178]0
  61. 263 [139]F1[179]1[167]W[178]1:[137]290
  62. 264 [141]800
  63. 265 [139]W[178]F1[137]300
  64. 266 [139]P1[177]0[137]271
  65. 267 [141]1700
  66. 268 [153]"YOU WOULD HAVE MADE"F1"SALES, IF YOU":[153]"ONHAD MORE CUPS."
  67. 270 [129]Y[178]1[164]3000:[130]
  68. 271 [141]1700
  69. 275 [139]D1[177]0[137]280
  70. 277 [153]"YOU WOULD HAVE MADE"F1"SALES, IF YOU":[153]"ONHAD MORE LEMON JUICE."
  71. 279 [129]Y[178]1[164]3000:[130]
  72. 280 [141]1700
  73. 285 [139]A1[177]0[137]290
  74. 287 [153]"YOU WOULD HAVE MADE"F1"SALES, IF YOU":[153]"ONHAD MORE SUGAR."
  75. 289 [129]Y[178]1[164]3000:[130]
  76. 290 [141]1700
  77. 300 [153]"YOU MADE"W[171]1"SALES AT"K"CENTS A CUP."
  78. 301 [153]"ONYOU GROSSED $"(W[171]1)[172](K[173]100)"     PRESS SHIFT
  79. 305 WAIT 653,1
  80. 308 K1=INT(.5*F3)
  81. 315 G5=INT((F3-K1)*F3)*(K1/100)
  82. 325 G9=G5
  83. 330 K9=K1
  84. 343 GOSUB1700
  85. 344 IFK=K9THENPRINT"WELL DONE!  YOU CHOSE THE BEST PRICE.":GOTO375
  86. 345 PRINT"YOU COULD HAVE GROSSED $"G9"TODAY"
  87. 346 PRINT"[145]IF YOU HAD CHARGED"K9"CENTS"
  88. 375 K9=0:G9=0
  89. 376 PRINT"PRESS SHIFT TO CONTINUE"
  90. 377 WAIT653,1,1:WAIT653,1
  91. 400 NEXTX
  92. 405 PRINT"[147]THE SUMMER IS OVER."
  93. 410 PRINT"[149]YOU HAVE $"BB
  94. 415 PRINT"YOU OWE YOUR FAMILY $ 10, SO YOU EARNED $"BB-10" THIS SUMMER."
  95. 420 PRINT"[149]YOU HAVE"P1"CUPS,"INT(D1)"BOTTLES OF LEMON
  96. 421 [153]"JUICE AND"[181](A1)"POUNDS OF SUGAR LEFT OVER.
  97. 430 END
  98. 800 FORW=1TOF1
  99. 827 IFP1<.5THENP1=0
  100. 828 IFD1<.5THEND1=0
  101. 829 IFA1<.5THENA1=0
  102. 830 IFP1=0ORA1=0ORD1=0THENGOTO847
  103. 833 GOSUB1800
  104. 834 D1=D1-(1/40)
  105. 835 A1=A1-(1/20)
  106. 836 P1=P1-1
  107. 837 B=B+(K*.01)
  108. 845 NEXTW
  109. 847 GOSUB1800
  110. 850 RETURN
  111. 997 PRINT"[147]WEEK NUMBER"N
  112. 1000 PRINT"
  113. 1010 [153]"                       YOU HAVE:
  114. 1020 PRINT"                        $
  115. 1030 [153]"VERIFY    THENUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRFN         LTRS LEM
  116. 1040 PRINT"[149]    [167]               [165]         LBS SUGAR
  117. 1045 [153]"ON"A$"'S"
  118. 1050 [153]"VERIFY    THEN   LEMONADE  VERIFY  FN         CUPS
  119. 1060 PRINT"[149]    [167]               [165]
  120. 1070 [153]"    THEN        CENTS VERIFY FN  SYSWEATHER:
  121. 1080 PRINT"[149]    [167][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][165]
  122. 1090 [153]"    THENSYS TOTOTO VERIFY          FN
  123. 1100 PRINT"    [167][158] [205] [206][201][149]          [165]
  124. 1110 [153]"    THENSYS ( )(null)LISTGETGETGETGETGETGETGETGETGETVERIFY FN
  125. 1130 PRINT"    [167][169]             [223][146][165]
  126. 1140 [153]"    STEP               (null)WAIT
  127. 1150 PRINT"    [200]([217]@[199]()[213][201][199]()[199])[199]*[199]
  128. 1160 [153]"    LEFT$)(null)(PEEK)(MID$(null)PEEK)(PEEK@CHR$)CHR$
  129. 1170 PRINT"    [200]([217])[199]([215]()[199](*[199])[199]([199]
  130. 1180 [153]"    LEFT$)(null)(PEEK)(@(PEEK)(PEEK(CHR$)CHR$
  131. 1190 PRINT"    [200]*[217])[199]*)()[199]()[199])[199]([199]
  132. 1200 [153]"    LEFT$)(null)(PEEK)()(PEEK)(PEEK(CHR$)CHR$
  133. 1210 PRINT"[177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177]
  134. 1220 [142]
  135. 1300 [153]"LOAD"
  136. 1301 [153]"(null)OU'VE DECIDED TO RUN A LEMONADE STAND"
  137. 1302 [153]"FOR TEN SATURDAYS THIS SUMMER IN ORDER"
  138. 1304 [153]"TO MAKE SOME MONEY.":[153]
  139. 1306 [153]"PEEKUT YOU SOON FIND THAT RUNNING A STAND"
  140. 1308 [153]"COSTS MONEY.":[153]
  141. 1310 [153]"(null)OUR JOB IS TO MAKE AS BIG A PROFIT AS ":[153]"YOU CAN.":[153]
  142. 1312 [153]"(null)OUR FAMILY AGREES TO STAKE YOU TOCLOSE$10"
  143. 1314 [153]"IN ORDER TO GET STARTED. ATNT THE END OF"
  144. 1316 [153]"THE SUMMER YOU WILL HAVE TO RETURN THE"
  145. 1318 [153]"$10, BUT YOU WILL NOT NEED TO PAY"
  146. 1320 [153]"INTEREST.":[153]
  147. 1322 [141]1400
  148. 1324 [153]"LOAD"
  149. 1326 [153]"LEFT$RIGHT$(null)(null)(null):SYS"
  150. 1328 [153]"RIGHT$F YOU KEEP YOUR PRICE LOW, YOU'LL SELL"
  151. 1330 [153]"MORE LEMONADE, BUT YOU WILL MAKE LESS"
  152. 1332 [153]"MONEY ON EACH SALE.":[153]
  153. 1334 [153]"(null)N HOT DAYS, YOU WILL SELLCLOSEMORE LEMONADE
  154. 1336 PRINT"[145]AND[160]ALSO[160]YOU[160]WILL[160]BE[160]ABLE TO CHARGE MORE
  155. 1338 [153]"ONPER CUP."
  156. 1344 [141]1400
  157. 1346 [153]"RETURNLOAD";
  158. 1350 [137]104
  159. 1400 [153]:[153]"VERIFY(null)RESS (null)LEFT$RIGHT$ASC(null)WAITONCMDCMDCMDCMDCMDTOTOTOTOTOVERIFY TO CONTINUE.SYS"
  160. 1404 [146]653,1,1:[146]653,1:[142]
  161. 1500 T[178][181]([187](1)[172]15[170]19)
  162. 1514 S[178].99[170](.01)[172][181]([187](1)[172]9):[143]**COST OF SUGAR
  163. 1516 L[178].69[170](.01)[172][181]([187](1)[172]9):[143]**COST OF CONCENTRATE
  164. 1518 C[178].90[170](.01)[172][181]([187](1)[172]9):[143]**COST OF CUPS
  165. 1520 Z[178][171]4[170][181]([187](1)[172]9)
  166. 1600 [142]
  167. 1700 [153]"                                        "
  168. 1702 [153]"                                       "
  169. 1704 [153]"";
  170. 1705 [142]
  171. 1800 [129]U[178]1[164]6
  172. 1802 [139][202]([196](B),U,1)[178]"."[137]1807
  173. 1803 [130]U
  174. 1805 BB[178]B:[137]1808
  175. 1807 BB[178][197]([200]([196](B),U[170]2)):BB[178][181](100[172]BB)[173]100
  176. 1808 [153]""[163]25)"      CMDCMDCMDCMDCMDCMD"BB
  177. 1809 [153][163]25)"     CMDCMDCMDCMDCMD"[181](D1)
  178. 1810 [153][163]25)"     CMDCMDCMDCMDCMD"[181](A1)
  179. 1811 [153][163]25)"     CMDCMDCMDCMDCMD"P1
  180. 1815 [142]
  181. 60000 X$[178]"":[151]198,0:[151]204,0:[153]"   CMDCMDCMD";
  182. 60010 [146]198,7:[161]Z$:ZZ[178][198](Z$):[139]ZZ[177]57[167]60010
  183. 60080 ZL[178][195](X$):[139]ZL[177]2[167]60110
  184. 60100 [139]ZZ[177]47[167]X$[178]X$[170]Z$:[153]Z$;:[137]60010
  185. 60110 [139]ZZ[178]13[175]ZL[167][151]204,1:[153]" ";:[142]
  186. 60120 [139]ZZ[178]20[175]ZL[167]X$[178][200](X$,ZL[171]1):[153]Z$;
  187. 60140 [137]60010
  188.